home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Xtras / club1.d64 / setup64 (.txt) < prev    next >
Commodore BASIC  |  2009-02-07  |  1KB  |  33 lines
  1. 63000 REM C64 SETUP ROUTINE *CONTRIBUTED      BY FRED LAYBERGER, OMAHA NEBRASKA
  2. 63005 IFA=1THENSYS12*4096+12*256:NEW
  3. 63010 BR=12:BG=15:C=0:CC=11:PRINTCHR$(147):POKE53280,BR:POKE53281,BG:POKE646,CC
  4. 63015 PRINT"":TM$="C64 SETUP ROUTINE":BM$="SELECT COLORS"
  5. 63020 PRINT""TAB(((40-LEN(TM$))/2))TM$"[146]"
  6. 63025 PRINT"    PRESS:":PRINTSPC(10)"F1 - BACKGROUND COLOR"
  7. 63030 PRINTSPC(10)"F3 - BORDER COLOR":PRINTSPC(10)"F5 - CHARACTER COLOR"
  8. 63035 PRINTSPC(10)"F7 - COLOR BAR":PRINTSPC(10)"F6 - LOAD/RUN DOS WEDGE"
  9. 63040 PRINTSPC(10)"F8 - EXIT"
  10. 63045 PRINT""TAB(((40-LEN(BM$))/2))BM$"[146]"
  11. 63050 POKE198,0:WAIT198,1:GETA$:IFA$="[139]"THEN63145
  12. 63055 IFA$="[134]"THEN63090
  13. 63060 IFA$="[133]"THEN63100
  14. 63065 IFA$="[136]"THEN63110
  15. 63070 IFA$="[140]"THENPRINT"[147]":NEW
  16. 63075 IFA$<>"[135]"THEN63020
  17. 63080 CC=CC+1:IFCC>15THENCC=0:GOTO63140
  18. 63085 GOTO63140
  19. 63090 BR=BR+1:IFBR>15THENBR=0:GOTO63140
  20. 63095 GOTO63140
  21. 63100 BG=BG+1:IFBG>15THENBG=0:GOTO63140
  22. 63105 GOTO63140
  23. 63110 PRINT"[147]";:POKE53280,0:POKE53281,0
  24. 63115 FORA=1TO20:PRINT"     [129]     [158]          [153]     [156]          [154]     ";
  25. 63120 NEXT:FORA=1TO3:PRINT"[151]                       [152]          ";
  26. 63125 PRINT"[155]       ";:NEXT:PRINT"";:POKE198,0
  27. 63130 GETA$:IFA$=""THEN63130
  28. 63135 CLR:PRINT"[147]":GOTO63015
  29. 63140 POKE53280,BR:POKE53281,BG:POKE646,CC:GOTO63015
  30. 63145 PRINT"[147]LOADING DOS 5.1"
  31. 63150 IFA=0THENA=1:LOAD"DOS 5.1",8,1:RUN
  32. 63155 NEW
  33.